home *** CD-ROM | disk | FTP | other *** search
- scr <- Screen new
- scr setScreenModeID: 16r40D20001
- scr open: 'TestScreen'
-
- win <- Window new: 'TestWindow'
-
- win setFlags: 16r100F
- win setIDCMPFlags: 16r140
- win openOnScreen: scr
-
- scr screenToFront
-
- crs <- Colors new: win
- crs makeColorMap: 16
- crs loadColors: 16 from: 'Amigatalk:AmigaTalk.colors'
-
- crs setColorReg: 1 red: 12 green: 12 blue: 12
- crs setColorReg: 2 red: 0 green: 0 blue: 8
- crs setColorReg: 3 red: 8 green: 8 blue: 8
- crs setColorReg: 4 red: 8 green: 0 blue: 8
- crs setColorReg: 5 red: 0 green: 8 blue: 8
- crs setColorReg: 6 red: 8 green: 8 blue: 0
-
- itxt <-IText new: 'Testing Graphics primitives...'
-
- itxt setPens: 5 @ 2
- itxt setITextOrigin: 100 @ 80
-
- win printIText: itxt at: 30 @ 20
-
- p1 <- Painter new: win
- p1 setAPen: 4
-
- p1 movePenTo: 200@20
- p1 drawTo: 400@50
-
- p1 setAPen: 5
- p1 drawBoxFrom: 100@70 to: 150@20
-
- p1 setAPen: 6
- p1 drawLineFrom: 200@52 to: 400@52
-
- p1 setAPen: 5
- p1 drawCircle: 400@200 radius: 50
-
- p1 setAPen: 8
- p1 drawEllipse: 100@200 minaxis: 50 maxaxis: 100
-
- p1 drawText: 'Test drawText Method' at: 100@55
-
- p1 drawText: 'type: "win close;scr close" in Command' at: 100@70
- p1 drawText: 'String Gadget to exit!' at: 100@80
-
- itxt dispose
-
- crs dispose
-